<%

Function usuario_lista(usuarios)

	DIM total
	
	total = 0

	str = "Select id, login FROM usuarios where status=1 order by login asc"
   	Set rs = conexao_geral.Execute(str)	
	
	Do while not rs.eof
	
		usuarios(total,0) = rs("id")
		usuarios(total,1) = rs("login")
		total=total+1
	
	rs.MoveNext
	loop
	
	usuario_lista = total
	
End Function

Function usuario_lista_id(usuarios, id)

	DIM total
	
	total = 0

	str = "Select id, login FROM usuarios where id"&id
   	Set rs = conexao_geral.Execute(str)	
	
	Do while not rs.eof
	
		usuarios(total,0) = rs("id")
		usuarios(total,1) = rs("login")
		total=total+1
	
	rs.MoveNext
	loop
	
	usuario_lista_id = total
	
End Function

Function usuario_lista_all(usuarios)

	DIM total
	
	total = 0

	str = "Select id, login, status FROM usuarios order by login asc"
   	Set rs = conexao_geral.Execute(str)	
	
	Do while not rs.eof
	
		usuarios(total,0) = rs("id")
		usuarios(total,1) = rs("login")
		usuarios(total,2) = rs("status")
		total=total+1
	
	rs.MoveNext
	loop
	
	usuario_lista_all = total
	
End Function

%>